5 REM  THE FOLLOWING REM STATEMENTS ARE FOR THE CHECKSUM PROGRAM
6 REM TO USE THE CHECKSUM PROGRAM SIMPLY ERASE ALL REMS (EXCEPT LINES 5 & 6)
7 REM  AND TYPE RUN
10 DATA11507,12573,12522,11001
20 REM A=49152:B=84:C=A+B:FORI=1TO4:D=0:READX:FORJ=ATOC:D=D+PEEK(J):NEXT
30 REM IFD<>XTHENPRINTTAB(19)"ERROR IN BLOCK #"I:GOTO50
40 REM PRINT"BLOCK #"I"IS CORRECT"
50 REM A=C+1:C=A+B:NEXT:END
60 FORI=1TO4:READA:NEXT:READLO,HI:FORI=LOTOHI:READX:POKEI,X:NEXT:END
5000 DATA 49152, 49528
5010 DATA 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
5020 DATA 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
5030 DATA 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
5040 DATA 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
5050 DATA 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
5060 DATA 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
5070 DATA 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
5080 DATA 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
5090 DATA 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
5100 DATA 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
5110 DATA 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
5120 DATA 177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
5130 DATA 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
5140 DATA 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92
5150 DATA 104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
5160 DATA 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
5170 DATA 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
5180 DATA 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
5190 DATA 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
5200 DATA 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
5210 DATA 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
5220 DATA 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0
5230 DATA 4,1,1